home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 73 / 073.d81 / paint by number (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  76 lines
  1. 2 poke52,128:poke56,128:clr:gosub112:poke53271,.:poke53276,1:poke53277,.
  2. 4 poke33784,178:print"[154][147]"tab(9)"[176][192][201]":printtab(9)"[221] [221][213][192][201][213][178][192][213][201][213][192][178][192] [176][192][201][201] [201]"
  3. 6 printtab(9)"[171][192][203][171][192][179] [221] [221][221][221] [221]  [171][192][179][202][178][203]":printtab(9)"[203]  [203] [202][192][203][192][203][202][203] [203]  [173][192][203] [203]"
  4. 8 printtab(9)"[213][201][213][192]":printtab(9)"[221][221][221] [201] [201][213][201][213][201][176][192][201][213][192][201][176][192][201]  "
  5. 10 printtab(9)"[221][221][221] [221] [221][221][202][203][221][171][192][179][171][192] [171][178][203][213][201]"
  6. 12 printtab(9)"[203][202][203] [202][192][203][203]  [202][177][192][203][202][192][192][189][202][192][219][203]":printtab(29)"[202]"
  7. 14 printtab(13)"by jon mattson":printtab(11)"c[146] construction set"
  8. 16 printtab(11)"[129]g[146] play game":printtab(11)"[158]s[146] alter game speed"
  9. 18 printtab(11)"l[146] load new levels":printtab(11)"[154]h[146] see high scores"
  10. 20 printtab(11)"[152]q[146] quit":poke53285,.:poke53286,1
  11. 22 geta$:ifa$=""then28
  12. 24 j=.:fori=1to6:ifa$=mid$("cgslhq",i,1)thenj=i
  13. 26 next:ifj>.thenpoke53269,.:onjgoto30,48,34,32,74,86
  14. 28 sysc:fori=1to15:next:goto22
  15. 30 sysm:goto4
  16. 32 sysl:goto4
  17. 34 print"[147]"tab(12)"[159]new game speed:":printtab(14)"l[146]ightning"
  18. 36 printtab(14)"[129]f[146]ast":printtab(14)"[158]n[146]ormal":printtab(14)"s[146]low"
  19. 38 printtab(14)"[154]v[146]ery slow":poke198,.
  20. 40 geta$:ifa$=""then40
  21. 42 j=.:fori=1to5:ifa$=mid$("lfnsv",i,1)thenj=i
  22. 44 next:ifj=.then40
  23. 46 pokesp,j*20:goto4
  24. 48 sysg:print:s=peek(sc)+256*peek(sc+1):ifs<s(19)thenfori=1to1500:next:goto74
  25. 50 print"[150]  a new high score!":poke54277,3:poke54278,.:fori=1to9:poke54273,i*9
  26. 52 poke54276,17:poke54276,16:forj=1to20:nextj,i:j=19:fori=19to.step-1
  27. 54 ifs>s(i)thenj=i
  28. 56 next:ifj=19then60
  29. 58 fori=19toj+1step-1:s(i)=s(i-1):n$(i)=n$(i-1):next
  30. 60 s(j)=s:n$(j)=""
  31. 62 print"[159]  your name please: [152]...............[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:i=.:s=5
  32. 64 printchr$(s)".[157]";:s=157-s:geta$:ifa$=""then64
  33. 66 ifa$=chr$(20)andi>.thenprint"[152].[157][157]";:i=i-1:n$(j)=left$(n$(j),i):goto64
  34. 68 ifa$=chr$(13)andi>.then74
  35. 70 ifi=14or(a$<"-"anda$<>" ")or(a$>"9"anda$<"a")ora$>"_"then64
  36. 72 printa$;:n$(j)=n$(j)+a$:i=i+1:goto64
  37. 74 print"[147]"tab(10)"*[158]*[150]*[129]  [156]t[154]o[159]p [153]sc[158]o[150]r[129]es[156] [154] [159]**[153]*":fori=.to19
  38. 76 a$=str$(s(i)):a$=left$("00000",6-len(a$))+right$(a$,len(a$)-1):j=i+10*(i>9)
  39. 78 printtab(10)mid$(c$,j+1,1)n$(i)tab(25)a$:next
  40. 80 printtab(12)"[150]press any key...":poke198,.
  41. 82 geta$:ifa$>""then4
  42. 84 sysd:fori=1to25:next:goto82
  43. 86 print"[147][150]quit? [159]are you sure?":poke198,.
  44. 88 geta$:ifa$="n"then4
  45. 90 ifa$<>"y"then88
  46. 92 print" save high scores? (ready disk drive     [153]before saying yes!)"
  47. 94 poke198,.
  48. 96 geta$:ifa$="n"then108
  49. 98 ifa$<>"y"then96
  50. 100 open15,8,15:print#15,"s0:pbn.high":input#15,j:ifj>1andj<>62then106
  51. 102 open2,8,2,"0:pbn.high,s,w":input#15,j:ifj>.then106
  52. 104 fori=.to19:print#2,n$(i):print#2,s(i):next
  53. 106 close2:close15
  54. 108 poke56576,199:poke53272,21:poke648,4:print"[154][147]";:poke53280,14:poke53281,6
  55. 110 poke52,160:poke56,160:clr:goto142
  56. 112 dims(19),n$(19):m=35825:g=m+3:l=m+6:c=m+9:d=m+12:sc=m+15:sp=m+17
  57. 114 i=.:j=.:s=.:a$="":c$="[158][150][129][156][154][159][153]":gosub126:poke54296,.:poke54286,255
  58. 116 poke54287,255:poke54290,128
  59. 118 poke147,.:sys57812"pbn.grfx",8,1:sys62631:poke147,.:sys57812"pbn.lvls",8,1
  60. 120 sys62631:open15,8,15:open2,8,2,"0:pbn.high,s,r":input#15,j
  61. 122 ifj=.thenfori=.to19:input#2,n$(i):input#2,s(i):next
  62. 124 close2:close15:poke56576,197:poke648,128:poke53272,8:return
  63. 126 printchr$(14)"[147]  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  64. 128 fori=1to7:print"  [152]                                    ":next
  65. 130 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
  66. 132 printtab(12)"[152][208][193][201][206][212][160][194][217] [206][213][205][194][197][210]":printtab(13)"[194]y [202]on [205]attson"
  67. 134 printtab(7)"[208]ublished on  [204][207][193][196][211][212][193][210] #73"
  68. 136 printtab(6)"[211]ubscriptions 1-800-831-2694"
  69. 138 printtab(6)"[195]opyright 1990 [211]oftdisk [201]nc."
  70. 140 printtab(15)"[154][204]oading...":poke53280,.:poke53281,.:return
  71. 142 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  72. 144 ifer<>63thenend
  73. 146 print"[147]returning to loadstar...":print"load"chr$(34);
  74. 148 print"hello connect"chr$(34)",8":print"run[145][145][145][145][145][145][145][145]":poke631,13
  75. 150 poke632,13:poke633,13:poke198,3:new
  76.